﻿' <summary>
' BeeWit IDE Entorno de desarrollo Visual para php.
' BeeWitPHP IDE es el único entorno de desarrollo para PHP 
' de tipo WYSIWYG (What You See Is What You Get). 
' ¡Ahora si!, aproveche la potencia del lenguaje PHP 
' y desarrolle más rápidamente gracias a la programación 
' intuitiva de BeeWit.
' Copyright © 2010 Dewins Murillo Garcia 
' EMAIL: dewinsmg@gmail.com
' EMAIL: dewins@beewitsoft.com
' Este Programa es Software Libre: usted puede redistribuirlo 
' y/o modificarlo bajo los términos de la Licencia Publica General 
' GNU como es publicada por la Fundacion de Software Libre; 
' en la 3ra versión de la licencia.
' Este programa es distribuido con la esperanza de que sea útil, 
' pero SIN GARANTÍA ALGUNA; sin siquiera la garantía implícita 
' de VALOR COMERCIAL o FORMADO PARA UN PROPÓSITO EN PARTICULAR. 
' Vea la Licencia Publica General GNU para mas detalles.
' Usted debe haber recibido una copia de la Licencia Publica General 
' GNU junto con este programa. Si no, vaya a http://www.beewitsoft.com
' o en http://code.google.com/p/ajax-beewit-php-ide/
' </summary>
' <remarks></remarks>

Imports System.IO
Public Class ctlNews
    Dim LoadedNews As Boolean = False
    Public Sub New()

        ' Llamada necesaria para el Diseñador de Windows Forms.
        InitializeComponent()

        ' Agregue cualquier inicialización después de la llamada a InitializeComponent().
        
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim myPath As String = Application.StartupPath
        If Not LoadedNews Then
            Try
                Dim Respuesta As String = DirectCast(DirectCast(sender.document, System.Object), System.Windows.Forms.HtmlDocument).Domain
                Respuesta &= sender.documenttext
                If Respuesta.ToUpper Like "*HTTP*404*" Or Respuesta.ToUpper Like "*no encontrado*" Or Respuesta.ToUpper Like "*is not available*" Then
                    LoadedNews = True
                    Me.WebBrowser1.Navigate(myPath & "\resources\online\lastnews.html")

                Else
                    'Me.WebBrowser1.Document.ExecCommand("save", False, "D:\Proyectos\BeeWit\bin\Debug\resources\news\lastnews.html")
                    LoadedNews = True
                    Dim Html As String = Me.WebBrowser1.DocumentText 'DirectCast(DirectCast(Me.WebBrowser1.Document, System.Windows.Forms.HtmlDocument).ActiveElement, System.Windows.Forms.HtmlElement).InnerHtml
                    Dim sw As New StreamWriter(myPath & "\resources\online\lastnews.html", False, System.Text.Encoding.UTF8) 'System.Text.Encoding.UTF8
                    sw.Write(Html)
                    sw.Flush()
                    sw.Close()
                    Me.WebBrowser1.Navigate(myPath & "\resources\online\lastnews.html")
                End If
            Catch ex As Exception
                LoadedNews = True
                Me.WebBrowser1.Navigate(myPath & "\resources\online\lastnews.html")
            End Try
        End If
        
    End Sub

    Private Sub ctlNews_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.WebBrowser1.Navigate("http://www.beewitsoft.com/online/lastnews.php?time=" & Now) '"http://www.beewitsoft.com/online/lastnews.php" http://localhost/sitiooficial/news.php
    End Sub
End Class
